Sub SetADORecordsetLockOptimistic()
   
    Dim cnxn As ADODB.Connection
    Dim rstOpt As ADODB.Recordset
   
    Set cnxn = CurrentProject.Connection
    Set rstOpt = New ADODB.Recordset
   
     Open a recordset with optimistic locking
     Default is read-only
   
    rstOpt.Open "MEMBERS", cnxn, adOpenKeyset, _
        adLockOptimistic, adCmdTable
       
    rstOpt!OfficeHeld = "Vice President"
     Optimistic locking locks the record only during save
    rstOpt.Update
    rstOpt.Close
   
    Set rstOpt = Nothing
    cnxn.Close
    Set cnxn = Nothing
   
End Sub
